home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 107 / 107.d81 / sea to sea (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  56 lines
  1. 1 dv=peek(186):ifdv<8thendv=8
  2. 4 poke180,0:ifpeek(56)=34thenpoke180,1
  3. 5 poke198,0:goto10
  4. 6 poke198,1:poke631,asc("n")
  5. 10 print"":poke53280,0:poke53281,0
  6. 12 ifpeek(56)=56then20
  7. 14 ifpeek(56)<>55thengosub2000
  8. 15 ifpeek(56)<>55thenpoke56,55:clr:gosub2001
  9. 20 poke53265,peek(53265)and239:poke53272,30
  10. 1000 print"[147]"
  11. 1001 a$="  [129]\@@@[129]\@@@[129]\@@@  [129]\@@@[129]\@@@  [129]\@@@[129]\@@@[129]\@@@
  12. 1002 b$[178]"  for@@for@[@@for@[@@for^@  for^^@for[@@for^@  for@@for@[@@for@[@@for^@
  13. 1003 c$="  [129]@@@@[129]@@@ [129]@@@@   [129]@@ [129]@@[129]@@  [129]@@@@[129]@@@ [129]@@@@
  14. 1004 d$[178]"  for^@^@for@@for[ @@for@@   for@@ for@@for@@  for^@^@for@@for[ @@for@@
  15. 1005 e$="  [129]\@@@[129]@@@@[129]@@[129]@@   [129]@@ [129]@@@@  [129]\@@@[129]@@@@[129]@@[129]@@
  16. 1006 f$[178]"  for^@@[^@@[^[^[   ^[ ^@@[  ^@@[^@@[^[^["
  17. 1007 dv[178][194](186):[139]dv[179]8[167]dv[178]8
  18. 1008 [137]50000
  19. 2000 [158]57812"c2c.mus",dv,0:[151]780,0:[151]781,0:[151]782,87:[158]65493:[142]
  20. 2001 dv[178][194](186):[139]dv[179]8[167]dv[178]8
  21. 2002 [158]57812"c2c.fnt",dv,0:[151]780,0:[151]781,0:[151]782,56:[158]65493:[142]
  22. 50000 [153]:[153]: [153]a$:[153]b$:[153]c$:[153]d$:[153]e$:[153]f$
  23. 50001 [153]:[153]"sys   (NULL)he (NULL)(NULL)atn(NULL)(NULL)len(NULL)(NULL)(NULL)right$(NULL)val(NULL)(NULL)atn(NULL) (NULL)atnright$(NULL)(NULL)(NULL)atnstr$ chr$ame
  24. 50002 print:print"[154]          for the [195][207][205][205][207][196][207][210][197] 64
  25. 50003 [153]:[153]" open          by str$avid (NULL). (NULL)oorman
  26. 50004 sys22427
  27. 51000 poke53265,peek(53265)or16
  28. 51001 ifpeek(180)=1then59000
  29. 51005 print:print:print:print"     [196]o [217]ou [215]ant [201]nstructions ([217]/[206]) "
  30. 51999 getz$:ifz$=""then51999
  31. 52000 poke23351,4:forx=1to20:next
  32. 52001 ifz$="y"then52020
  33. 52002 ifpeek(56)<>56then52010
  34. 52003 print"[145]                                      "
  35. 52004 print"[144][145][145][145][145]load"chr$(34)"c2c.bt2"chr$(34)","dv
  36. 52005 goto52012
  37. 52010 print"[145]         [156] [204]oading [205]odules.....       "
  38. 52011 print"[144][145][145][145][145]load"chr$(34)"c2c.bt1"chr$(34)","dv
  39. 52012 print"run[145][145][145][145][145][145][145][145]"
  40. 52019 forx=0to1:poke631+x,13:next:poke198,x:end
  41. 52020 print"[145]          [204]oading [201]nstructions       "
  42. 52030 sys57812"c2c.drd",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  43. 52040 print"[159]";
  44. 52050 sys49152"c2c.doc",dv,0
  45. 52060 run1000
  46. 59000 poke180,0:print:print:print:print"        <[208]>lay [193]gain or <[209]>uit?"
  47. 59010 getz$:ifz$=""then59010
  48. 59020 ifz$="p"thenpoke23351,4:run20
  49. 59021 goto61000
  50. 60000 open15,8,15,"s0:sea to sea":close15:save"sea to sea",8:end
  51. 61000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen61020
  52. 61010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then61030
  53. 61020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  54. 61030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  55. 61040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  56.